﻿Imports RunEnv
Public Class CUserManager
    Public Function ShowLogin(Optional ByVal systemType As String = "") As CUser
        Dim dlg As New dlgLogin
        Return dlg.ShowOpen(systemType)
    End Function

    Public Sub ShowFrmUserRight()
        Dim dlg As New frmUserRight
        dlg.ShowOpen()
    End Sub

    Public Sub ShowFrmUser()
        Dim frm As New frmUsers
        frm.ShowOpen()
    End Sub

    Public Sub ShowUpdatePassword(Optional ByVal userID As String = "")
        Dim dlg As New dlgUpdatePassword
        If Len(userID) = 0 Then
            userID = CType(CRunEnv.CurrentUser, CUser).UserID
        End If
        dlg.ShowOpen(userID)
    End Sub
End Class
